home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FGL304E.ZIP;1 / EXPAS.ARJ / FGDOC / EXAMPLES / PASCAL / 08-12.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-01-24  |  532 b   |  30 lines
  1. program main;
  2. uses fgmain, fgmisc;
  3.  
  4. var
  5.   old_mode : integer;
  6.   page_addr : word;
  7.   buffer : pointer;
  8.  
  9. begin
  10.   old_mode := fg_getmode;
  11.   fg_setmode(19);
  12.   getmem(buffer,fg_pagesize+16);
  13.   page_addr := seg(buffer^) + ((ofs(buffer^)+15) div 16);
  14.   fg_setentry(1,page_addr,2);
  15.  
  16.   fg_setpage(1);
  17.   fg_erase;
  18.   fg_setcolor(9);
  19.   fg_text('This is page 1.',15);
  20.   fg_waitkey;
  21.  
  22.   fg_copypage(1,0);
  23.   fg_setentry(1,0,0);
  24.   fg_waitkey;
  25.  
  26.   freemem(buffer,fg_pagesize+16);
  27.   fg_setmode(old_mode);
  28.   fg_reset;
  29. end.
  30.